home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Construc / Unit2.dfm < prev    next >
Encoding:
Text File  |  2000-06-05  |  4.3 KB  |  181 lines
  1. object DataModule2: TDataModule2
  2.   OldCreateOrder = False
  3.   Left = 244
  4.   Top = 191
  5.   Height = 480
  6.   Width = 696
  7.   object PageProducer1: TPageProducer
  8.     HTMLDoc.Strings = (
  9.       '<FONT FACE="Verdana"SIZE=2>'
  10.       'Hello, ASP'
  11.       '<P>'
  12.       'Today is: <#DATE FORMAT=YYYY/MM/DD>'
  13.       '<P>'
  14.       '<HR>')
  15.     OnHTMLTag = PageProducer1HTMLTag
  16.     Left = 88
  17.     Top = 48
  18.   end
  19.   object DataSetTableProducer1: TDataSetTableProducer
  20.     Columns = <
  21.       item
  22.         FieldName = 'Species No'
  23.       end
  24.       item
  25.         FieldName = 'Category'
  26.       end
  27.       item
  28.         FieldName = 'Common_Name'
  29.       end
  30.       item
  31.         FieldName = 'Species Name'
  32.       end
  33.       item
  34.         FieldName = 'Length (cm)'
  35.       end
  36.       item
  37.         FieldName = 'Length_In'
  38.       end>
  39.     DataSet = Query1
  40.     TableAttributes.BgColor = 'Silver'
  41.     TableAttributes.Border = 1
  42.     Left = 88
  43.     Top = 120
  44.   end
  45.   object Query1: TQuery
  46.     Active = True
  47.     DatabaseName = 'DBDEMOS'
  48.     SQL.Strings = (
  49.       'SELECT * FROM BIOLIFE.DB AS B WHERE (B."Length_in" >= :LEN)')
  50.     Left = 232
  51.     Top = 216
  52.     ParamData = <
  53.       item
  54.         DataType = ftInteger
  55.         Name = 'LEN'
  56.         ParamType = ptInput
  57.         Value = 7
  58.       end>
  59.   end
  60.   object QueryTableProducer1: TQueryTableProducer
  61.     Columns = <
  62.       item
  63.         FieldName = 'Species No'
  64.       end
  65.       item
  66.         FieldName = 'Category'
  67.       end
  68.       item
  69.         FieldName = 'Common_Name'
  70.       end
  71.       item
  72.         FieldName = 'Species Name'
  73.       end
  74.       item
  75.         FieldName = 'Length (cm)'
  76.       end
  77.       item
  78.         FieldName = 'Length_In'
  79.       end>
  80.     Query = Query1
  81.     Left = 88
  82.     Top = 216
  83.   end
  84.   object DMQueryTableProducer1: TDMQueryTableProducer
  85.     Query = Query1
  86.     Left = 80
  87.     Top = 304
  88.   end
  89.   object DataSetProvider1: TDataSetProvider
  90.     DataSet = Query1
  91.     Constraints = True
  92.     Left = 232
  93.     Top = 288
  94.   end
  95.   object MidasPageProducer1: TMidasPageProducer
  96.     HTMLDoc.Strings = (
  97.       '<HTML>'
  98.       '<HEAD>'
  99.       '</HEAD>'
  100.       '<BODY>'
  101.       '<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>'
  102.       '</BODY>'
  103.       '</HTML>')
  104.     IncludePathURL = 'http://192.168.92.201/cgi-bin/'
  105.     Left = 360
  106.     Top = 352
  107.     object DataForm1: TDataForm
  108.       object DataGrid1: TDataGrid
  109.         XMLBroker = XMLBroker1
  110.         object SpeciesNo: TTextColumn
  111.           DisplayWidth = 9
  112.           Caption = 'Species No'
  113.           FieldName = 'Species No'
  114.         end
  115.         object Category: TTextColumn
  116.           DisplayWidth = 10
  117.           Caption = 'Category'
  118.           FieldName = 'Category'
  119.         end
  120.         object Common_Name: TTextColumn
  121.           DisplayWidth = 18
  122.           Caption = 'Common_Name'
  123.           FieldName = 'Common_Name'
  124.         end
  125.         object SpeciesName: TTextColumn
  126.           DisplayWidth = 20
  127.           Caption = 'Species Name'
  128.           FieldName = 'Species Name'
  129.         end
  130.         object Lengthcm: TTextColumn
  131.           DisplayWidth = 10
  132.           Caption = 'Length (cm)'
  133.           FieldName = 'Length (cm)'
  134.         end
  135.         object Length_In: TTextColumn
  136.           DisplayWidth = 9
  137.           Caption = 'Length_In'
  138.           FieldName = 'Length_In'
  139.         end
  140.         object StatusColumn1: TStatusColumn
  141.           Caption = '*'
  142.         end
  143.       end
  144.       object DataNavigator1: TDataNavigator
  145.         XMLComponent = DataGrid1
  146.         object FirstButton1: TFirstButton
  147.           XMLComponent = DataGrid1
  148.           Caption = '|<'
  149.         end
  150.         object PriorPageButton1: TPriorPageButton
  151.           XMLComponent = DataGrid1
  152.           Caption = '<<'
  153.         end
  154.         object PriorButton1: TPriorButton
  155.           XMLComponent = DataGrid1
  156.           Caption = '<'
  157.         end
  158.         object NextButton1: TNextButton
  159.           XMLComponent = DataGrid1
  160.           Caption = '>'
  161.         end
  162.         object NextPageButton1: TNextPageButton
  163.           XMLComponent = DataGrid1
  164.           Caption = '>>'
  165.         end
  166.         object LastButton1: TLastButton
  167.           XMLComponent = DataGrid1
  168.           Caption = '>|'
  169.         end
  170.       end
  171.     end
  172.   end
  173.   object XMLBroker1: TXMLBroker
  174.     Params = <>
  175.     ProviderName = 'DataSetProvider1'
  176.     WebDispatch.PathInfo = 'XMLBroker1'
  177.     Left = 232
  178.     Top = 352
  179.   end
  180. end
  181.